home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
pvap322a
/
pvapuset.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
23KB
|
827 lines
/************************************************************************
* アップロード予約 *
************************************************************************/
/* アップロード予約メニュー */
%UPSET{
loop({
SNDMSG({erande_f.snd});
footnote({アップロードする場所を選択して下さい});
select({アップロードする場所を選択して下さい},99999,{im({No})},
{ テキストメール },{MAILSET({テキストメール});im({Yes})},
{ バイナリメール },{MAILSET({バイナリメール});im({Yes})},
{ 事務局宛メール },{JMAILSET;im({Yes})},
{ NIFTY連携メール },{NIFMAILSET;
im({Yes})},
{ SIG },{UPSIG;im({Yes})},
{ BBS },{KAKISET({BBS});im({Yes})},
{ CUG },{UPCUG;im({Yes})},
{ OLT広場 },{OLTSET;im({Yes})},
{ 不在通知 },{FUZAISET;im({Yes})},
{ プロフィール },{PROFSET;im({Yes})},
{ 終 了 },{im({No})});
});
};
%UPSIG{
loop({
SNDMSG({erande_f.snd});
footnote({アップロードする場所を選択して下さい});
select({アップロードする場所を選択して下さい},99999,{im({No})},
{ フォーラム },{KAKISET({フォーラム});im({Yes})},
{ 会議室 },{KAKISET({SIG内会議室});im({Yes})},
{ OLT広場 },{SIGOLTSET;im({Yes})},
{ OSL },{OSLSET;im({Yes})},
{ 終 了 },{im({No})});
});
};
%UPCUG{
loop({
SNDMSG({erande_f.snd});
footnote({アップロードする場所を選択して下さい});
select({アップロードする場所を選択して下さい},99999,{im({No})},
{ 掲示板 },
{CUGKAKISET({CUG内掲示板});im({Yes})},
{ 会議室 },
{CUGKAKISET({CUG内会議室});im({Yes})},
{ OLT広場 },{CUGOLTSET;im({Yes})},
{ OSL },{CUGOSLSET;im({Yes})},
{ 終 了 },{im({No})});
});
};
/* アップロードファイル内容確認 */
%KAKUNIN{
var file1 [64];
var memono [1];
case (@mlast==9,{Yes},{memono:=9},{No},{memono:=@mlast+1});
loop ({
footnote({テキストファイルを選択してください});
file1:=@filesel;
case (file1<>{},
{Yes}, {case (@nochar(@getcdir)==3,
{Yes},{file1:=@getcdir|file1},
{No},{file1:=@getcdir|{\}|file1})});
case (file1={}||@filechk(file1)={No},
{Yes}, {file1:={}},
{No}, {footnote({送信用テキストファイルを確認します});
CloseAllMemo;
madd(memono,{\n});
mclear(memono);
mread(file1,memono);
mopen(memono,0,21,639,459,{w});
%a @loop({
footnote({指定 次 取消},{b});
waitx();
case (@xtype,
101,{im(file1)},
201,{im(file1)},
102,{im({next})},
202,{im({next})},
103,{im({cancel})},
203,{im({cancel})},,{im({Yes})});
});
CloseAllMemo;
case(a, {next}, {im({Yes})},
{cancel},{file1:={};im({No})},,{im({No})})});
});
case(file1<>{},{Yes},{CloseMEMO(memono);SENDFILE:=file1});
};
/* アップロードファイル指定処理 */
%FILEsel1{
var upfile[64];
SNDMSG({erande_f.snd});
upfile:=@filesel;
case(upfile,{},{im({})},,{case (@nochar(@getcdir)=3,
{Yes},{upfile:=@getcdir|upfile},
{No},{upfile:=@getcdir|{\}|upfile})});
im(upfile);
};
/* ID検索処理 */
%IDsearch{
%memono1 @mlast+1;
%pickid{
%m @nolmemo(memono1);
%n @xlinenum;
%l1 @case (n<1,
{Yes}, {im(@memo(memono1,1,1))},
{No}, {case (n>m,
{Yes},{im(@memo(memono1,m,1))},
{No},{im(@memo(memono1,n,1))})});
im(@head(l1,{ }));
};
%idsearch{
case (SENDID,{},{SENDID:=SENDID2},,{SENDID:=SENDID|{,}|SENDID2});
};
case (memono1>9,
{Yes},{SNDMSG({kaknin_f.snd});
select({メモ番号が一杯のためメモを開けません},
99999,,)},
{No},
{CloseAllMemo;
madd(memono1,{\n});
mclear(memono1);
case (@filechk(DIR1|{\PVAPLIST.DAT}),
{Yes},{mread(DIR1|{\PVAPLIST.DAT},memono1)});
mopen(memono1,320,21,639,459,{r});
footnote({選択中止},{b});
loop({
waitx();
case (@xtype,
101,{%SENDID2 @pickid;idsearch;im({No})},
201,{%SENDID2 @pickid;idsearch;im({No})},
102,{im({No})}, 202,{im({No})},
memono1,{%SENDID2 @pickid;idsearch;im({No})},
,{im({Yes})});
});
case (@mcheck==memono1,
{Yes}, {mclose(3)},
{No}, {CloseAllMemo;mopen(memono1);mclose(3)})});
};
/* メールアップロード予約 */
%MAILSET{
[MAILTYPE]
var SENDID[64];
var TITLE[40];
var AD[6];
var MAILCOM[4];
var SENDFILE[64];
var ok[2];
loop({
%mailcom @case(MAILCOM,{BC},{im({1})},,{im({2})});
SNDMSG({nyuryo_f.snd});
footnote(MAILTYPE|{アップロード予約});
%a @plane( {c}|MAILTYPE|{アップロード予約\n}|
{t送信ID /\n}|
{s / ID一覧 \n}|
{c 複数のIDに送信する場合は「,」で区切って下さい\n}|
{tタイトル /12345678901234567890}|
{12345678901234567890\n}|
{t送信日 /123456\n}|
{c (例)920428 92年4月28日に送信する場合\n}|
{rコマンド /BC /無し\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
SENDID,TITLE,AD,mailcom,SENDFILE);
SENDID:= @head(@getline(a,1,1),{\n});
%sel2 @head(@getline(a,2,1),{\n});
TITLE:= @head(@getline(a,3,1),{\n});
AD:= @head(@getline(a,4,1),{\n});
%mailcom @head(@getline(a,5,1),{\n});
MAILCOM:= @case (mailcom,
{ 1},{im({BC})},
{ 2},{im({無し})});
SENDFILE:= @head(@getline(a,6,1),{\n});
%sel @head(@getline(a,7,1),{\n});
ok:= @head(@getline(a,8,1),{\n});
case(sel==1,{Yes},{case (MAILTYPE,
{テキストメール},
{KAKUNIN;im({Yes})},
{バイナリメール},
{SENDFILE:=@FILEsel1;im({Yes})})});
case(sel==2,{Yes},{case (MAILTYPE,
{テキストメール},
{%memono @mlast+1;SHINKI;im({Yes})},,
{im({Yes})})});
case(sel2==1,{Yes},{IDsearch;im({Yes})});
});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
MAILTYPE|{/}|
SENDID|{/}|
AD|{/}|
TITLE|{/}|
MAILCOM|{/}|
SENDFILE|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* NIFTY連携メールアップロード予約 */
%NIFMAILSET{
var SENDID[64];
var TITLE[40];
var AD[6];
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({NIFTY連携メールアップロード予約});
%a @plane( {cNIFTY連携メールアップロード予約\n}|
{t送信ID /\n}|
{c 複数のIDに送信する場合は「,」で区切って下さい\n}|
{tタイトル /12345678901234567890}|
{12345678901234567890\n}|
{t送信日 /123456\n}|
{c (例)920428 92年4月28日に送信する場合\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
SENDID,TITLE,AD,SENDFILE);
SENDID:= @head(@getline(a,1,1),{\n});
TITLE:= @head(@getline(a,2,1),{\n});
AD:= @head(@getline(a,3,1),{\n});
SENDFILE:= @head(@getline(a,4,1),{\n});
%sel @head(@getline(a,5,1),{\n});
ok:= @head(@getline(a,6,1),{\n});
case(sel==1,{Yes},{KAKUNIN;im({Yes})});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI;im({Yes})});
});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{NIFTY連携メール/}|
SENDID|{/}|
TITLE|{/}|
AD|{/}|
SENDFILE|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* PC-VAN事務局宛メールアップロード予約 */
%JMAILSET{
var TITLE[40];
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({事務局宛メールアップロード予約});
%a @plane( {c事務局宛メールアップロード予約\n}|
{tタイトル /}|
{1234567890123456789012345678901234567890\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
TITLE,SENDFILE);
TITLE:= @head(@getline(a,1,1),{\n});
SENDFILE:= @head(@getline(a,2,1),{\n});
%sel @head(@getline(a,3,1),{\n});
ok:= @head(@getline(a,4,1),{\n});
case(sel==1,{Yes},{KAKUNIN;im({Yes})});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI;im({Yes})});
});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{事務局宛メール/}|
TITLE|{/}|
SENDFILE|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* 不在通知登録予約 */
%FUZAISET{
var AD1[6];
var AD2[6];
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({不在通知登録予約});
%a @plane( {c不在通知登録予約\n}|
{t不在開始日 /123456\n}|
{c (例)920428 92年4月28日に不在開始する場合\n}|
{t不在終了日 /123456\n}|
{c (例)920528 92年5月28日に不在終了する場合\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
AD1,AD2,SENDFILE);
AD1:= @head(@getline(a,1,1),{\n});
AD2:= @head(@getline(a,2,1),{\n});
SENDFILE:= @head(@getline(a,3,1),{\n});
%sel @head(@getline(a,4,1),{\n});
ok:= @head(@getline(a,5,1),{\n});
case(sel==1,{Yes},{KAKUNIN;im({Yes})});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI;im({Yes})});
});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{不在通知/}|
AD1|{/}|AD2|{/}|
SENDFILE|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* SIG・BBSの発言アップロード予約 */
%KAKISET{[WHERE]
var JUMP[8];
var NUMBER[2];
var TITLE[120];
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote(WHERE|{発言アップロード予約});
%a @plane( {c}|WHERE|{発言アップロード予約\n}|
{tジャンプコード /12345678\n}|
{tボード番号 /12\n}|
{tタイトル /\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
JUMP,NUMBER,TITLE,SENDFILE);
JUMP:= @head(@getline(a,1,1),{\n});
NUMBER:= @head(@getline(a,2,1),{\n});
TITLE:= @head(@getline(a,3,1),{\n});
SENDFILE:= @head(@getline(a,4,1),{\n});
%sel @head(@getline(a,5,1),{\n});
ok:= @head(@getline(a,6,1),{\n});
case(sel==1,{Yes},{KAKUNIN});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
WHERE|{/}|
JUMP|{/}|
NUMBER|{/}|
TITLE|{/}|
SENDFILE|{\n});
};
case (ok,
{ 1}, {case (@nochar(TITLE)>={60},
{No}, {WRITE;im({No})},
{Yes}, {SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},
{ 2}, {im({No})},,
{case (ok={ 0}&&sel={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
setcdir(DIR1);
};
/* SIG内OLT広場発言アップロード予約 */
%SIGOLTSET{
var JUMP[8];
var TITLE[120];
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({SIG内OLT広場発言アップロード予約});
%a @plane( {cSIG内OLT広場発言アップロード予約\n}|
{tジャンプコード /12345678\n}|
{tタイトル /\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
JUMP,TITLE,SENDFILE);
JUMP:= @head(@getline(a,1,1),{\n});
TITLE:= @head(@getline(a,2,1),{\n});
SENDFILE:= @head(@getline(a,3,1),{\n});
%sel @head(@getline(a,4,1),{\n});
ok:= @head(@getline(a,5,1),{\n});
case(sel==1,{Yes},{KAKUNIN});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{SIG内OLT広場/}|
JUMP|{/}|
TITLE|{/}|
SENDFILE|{\n});
};
case (ok,
{ 1}, {case (@nochar(TITLE)>={60},
{No}, {WRITE;im({No})},
{Yes}, {SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},
{ 2}, {im({No})},,
{case (ok={ 0}&&sel={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
setcdir(DIR1);
};
/* CUGの発言アップロード予約 */
%CUGKAKISET{[WHERE]
var CUG[8];
var PASS[8];
var MAINNUM[2];
var NUMBER[2];
var TITLE[120];
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote(WHERE|{発言アップロード予約});
%a @plane( {c}|WHERE|{発言アップロード予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{s / 検索 \n}|
{tメインメニュー番号 /12\n}|
{tボード 番号 /12\n}|
{tタイトル /\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
CUG,PASS,MAINNUM,NUMBER,TITLE,SENDFILE);
CUG:= @head(@getline(a,1,1),{\n});
PASS:= @head(@getline(a,2,1),{\n});
%sel2 @head(@getline(a,3,1),{\n});
MAINNUM:= @head(@getline(a,4,1),{\n});
NUMBER:= @head(@getline(a,5,1),{\n});
TITLE:= @head(@getline(a,6,1),{\n});
SENDFILE:= @head(@getline(a,7,1),{\n});
%sel @head(@getline(a,8,1),{\n});
ok:= @head(@getline(a,9,1),{\n});
case(sel==1,{Yes},{KAKUNIN});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
case(sel2==1,{Yes},{case(CUG={},
{No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
WHERE|{/}|
CUG|{/}|PASS|{/}|MAINNUM|{/}|
NUMBER|{/}|
TITLE|{/}|
SENDFILE|{\n});
};
case (ok,
{ 1}, {case (@nochar(TITLE)>={60},
{No}, {WRITE;im({No})},
{Yes}, {SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},
{ 2}, {im({No})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
setcdir(DIR1);
};
/* CUG内OLT広場発言アップロード予約 */
%CUGOLTSET{
var CUG[8];
var PASS[8];
var MAINNUM[2];
var TITLE[120];
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({CUG内OLT広場発言アップロード予約});
%a @plane( {cCUG内OLT広場発言アップロード予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{s / 検索 \n}|
{tメインメニュー番号 /12\n}|
{tタイトル /\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
CUG,PASS,MAINNUM,TITLE,SENDFILE);
CUG:= @head(@getline(a,1,1),{\n});
PASS:= @head(@getline(a,2,1),{\n});
%sel2 @head(@getline(a,3,1),{\n});
MAINNUM:= @head(@getline(a,4,1),{\n});
TITLE:= @head(@getline(a,5,1),{\n});
SENDFILE:= @head(@getline(a,6,1),{\n});
%sel @head(@getline(a,7,1),{\n});
ok:= @head(@getline(a,8,1),{\n});
case(sel==1,{Yes},{KAKUNIN});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
case(sel2==1,{Yes},{case(CUG={},
{No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{CUG内OLT広場/}|
CUG|{/}|PASS|{/}|
MAINNUM|{/}|TITLE|{/}|
SENDFILE|{\n});
};
case (ok,
{ 1}, {case (@nochar(TITLE)>={60},
{No}, {WRITE;im({No})},
{Yes}, {SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},
{ 2}, {im({No})},,
{case (ok={ 0}&&sel={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
setcdir(DIR1);
};
/* OLT広場発言アップロード予約 */
%OLTSET{
var TITLE[120];
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({OLT広場発言アップロード予約});
%a @plane( {cOLT広場発言アップロード予約\n}|
{tタイトル /\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
TITLE,SENDFILE);
TITLE:= @head(@getline(a,1,1),{\n});
SENDFILE:= @head(@getline(a,2,1),{\n});
%sel @head(@getline(a,3,1),{\n});
ok:= @head(@getline(a,4,1),{\n});
case(sel==1,{Yes},{KAKUNIN});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{OLT広場/}|
TITLE|{/}|
SENDFILE|{\n});
};
case (ok,
{ 1}, {case (@nochar(TITLE)>={60},
{No}, {WRITE;im({No})},
{Yes}, {SNDMSG({okasi_f.snd});
select({タイトルの文字数が多すぎます}|
{(全角で30文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},
{ 2}, {im({No})},,
{case (ok={ 0}&&sel={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
setcdir(DIR1);
};
/* プロフィール登録予約 */
%PROFSET{
var SENDFILE[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({プロフィール登録予約});
%a @plane( {cプロフィール登録予約\n}|
{t送信ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{s/ 登録 / 取消 \n},
SENDFILE);
SENDFILE:= @head(@getline(a,1,1),{\n});
%sel @head(@getline(a,2,1),{\n});
ok:= @head(@getline(a,3,1),{\n});
case(sel==1,{Yes},{KAKUNIN;im({Yes})});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI;im({Yes})});
});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{プロフィール/}|
SENDFILE|{\n});
};
case(ok==1,{Yes},{WRITE;setcdir(DIR1)},,{setcdir(DIR1)});
};
/* SIG内OSLアップロード予約 */
%OSLSET{
var JUMP[8];
var OSLNUM[2];
var TITLE[144];
var SENDFILE[64];
var sendfile[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({SIG内OSLアップロード予約});
%a @plane( {cSIG内OSLアップロード予約\n}|
{tジャンプコード /12345678\n}|
{tOSL番号 /12\n}|
{tコメント /\n}|
{tドキュメント ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{tプログラム ファイル /\n}|
{s / ファイル一覧 \n}|
{s/ 登録 / 取消 \n},
JUMP,OSLNUM,TITLE,SENDFILE,sendfile);
JUMP:= @head(@getline(a,1,1),{\n});
OSLNUM:= @head(@getline(a,2,1),{\n});
TITLE:= @head(@getline(a,3,1),{\n});
SENDFILE:= @head(@getline(a,4,1),{\n});
%sel @head(@getline(a,5,1),{\n});
sendfile:= @head(@getline(a,6,1),{\n});
%sel2 @head(@getline(a,7,1),{\n});
ok:= @head(@getline(a,8,1),{\n});
case(sel==1,{Yes},{KAKUNIN});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
case(sel2==1,{Yes},{sendfile:=@FILEsel1});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{SIG内OSL/}|
JUMP|{/}|
OSLNUM|{/}|
TITLE|{/}|
SENDFILE|{/}|sendfile|{\n});
};
case (ok,
{ 1}, {case (@nochar(TITLE)>={72},
{No}, {WRITE;im({No})},
{Yes}, {SNDMSG({okasi_f.snd});
select({コメントの文字数が多すぎます}|
{(全角で36文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},
{ 2}, {im({No})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
setcdir(DIR1);
};
/* CUG内OSLアップロード予約 */
%CUGOSLSET{
var CUG[8];
var PASS[8];
var MAINNUM[2];
var OSLNUM[2];
var TITLE[144];
var SENDFILE[64];
var sendfile[64];
var ok[2];
loop({
SNDMSG({nyuryo_f.snd});
footnote({CUG内OSLアップロード予約});
%a @plane( {cCUG内OSLアップロード予約\n}|
{tCUG名 /12345678\n}|
{tパスワード /12345678\n}|
{s / 検索 \n}|
{tメインメニュー番号 /12\n}|
{tOSL 番号 /12\n}|
{tコメント /\n}|
{tドキュメント ファイル /\n}|
{s / ファイル一覧 / 新規作成 \n}|
{tプログラム ファイル /\n}|
{s / ファイル一覧 \n}|
{s/ 登録 / 取消 \n},
CUG,PASS,MAINNUM,OSLNUM,TITLE,SENDFILE,sendfile);
CUG:= @head(@getline(a,1,1),{\n});
PASS:= @head(@getline(a,2,1),{\n});
%sel3 @head(@getline(a,3,1),{\n});
MAINNUM:= @head(@getline(a,4,1),{\n});
OSLNUM:= @head(@getline(a,5,1),{\n});
TITLE:= @head(@getline(a,6,1),{\n});
SENDFILE:= @head(@getline(a,7,1),{\n});
%sel @head(@getline(a,8,1),{\n});
sendfile:= @head(@getline(a,9,1),{\n});
%sel2 @head(@getline(a,10,1),{\n});
ok:= @head(@getline(a,11,1),{\n});
case(sel==1,{Yes},{KAKUNIN});
case(sel==2,{Yes},{%memono @mlast+1;SHINKI});
case(sel2==1,{Yes},{sendfile:=@FILEsel1});
case(sel3==1,{Yes},{case(CUG={},
{No},{PASS:=@tail(PCVAN,{/}|CUG|{/},{/})})});
%WRITE{
write (TEMPPATH|{\PVAPUP.DAT},
{CUG内OSL/}|
CUG|{/}|PASS|{/}|MAINNUM|{/}|
OSLNUM|{/}|
TITLE|{/}|
SENDFILE|{/}|sendfile|{\n});
};
case (ok,
{ 1}, {case (@nochar(TITLE)>={72},
{No}, {WRITE;im({No})},
{Yes}, {SNDMSG({okasi_f.snd});
select({コメントの文字数が多すぎます}|
{(全角で36文字まで)},
99999,{im({Yes})},
{ 確認 },{im({Yes})})})},
{ 2}, {im({No})},,
{case (ok={ 0}&&sel={ 0}&&sel2={ 0}&&sel3={ 0},
{Yes}, {im({No})}, /* 右クリックで終了 */
{No}, {im({Yes})})});
});
setcdir(DIR1);
};
/* 他のファイルを参照するためにメモを開く */
%newmemo{
case (@mlast==9,
{Yes}, {SNDMSG({kaknin_f.snd});
select({メモ番号が一杯のため、}|
{新しいメモが開けません},99999,,
{ 確認 },)},
{No},
{CloseAllMemo;
mopen(memono,0,21,639,439);
mclose(1);
%MEMO @mlast+1;
madd(MEMO,{\n});
mclear(MEMO);
%file1 @filesel;
case (file1<>{}&&@filechk(file1)={Yes},
{Yes},{mread(file1,MEMO)});
mopen(MEMO,0,221,639,459)});
im({Yes});
};
/* アップ用文書新規作成処理 */
%SHINKI{
%savememo{
footnote({アップ用テキストファイルを新規作成します});
mkdir2(TEMPPATH);
%file1 @crefile2(TEMPPATH,{res});
CloseAllMemo;
mwrite(TEMPPATH|{\}|file1,memono);
SENDFILE:=TEMPPATH|{\}|file1;
AllDelMEMO;
im({No});
};
footnote({アップ用テキストファイルを新規作成します});
CloseAllMemo;
madd(memono,{\n});
mclear(memono);
mopen(memono,0,21,639,459,{w});
loop({
footnote({終了取消参照清書},{b});
waitx();
case(@xtype,
101,{savememo},201,{savememo},
102,{cancel},202,{cancel},
103,{newmemo},203,{newmemo},
104,{rewrite},204,{rewrite},,{im({Yes})});
});
};
/* アップ用文書を清書する */
%rewrite{
footnote({編集中のメモ内容を清書しています});
CloseAllMemo;
dispoff({Yes});
%cdir @getcdir;
setcdir(DIR1);
command({del }|TEMPPATH|{\_moptext.tmp});
command({del }|TEMPPATH|{\_moptext.new});
mwrite(TEMPPATH|{\_moptext.tmp},memono);
case (DIR2={},
{Yes}, {command({txf -f -i }|TEMPPATH|{\_moptext.tmp}|
{ -o }|TEMPPATH|{\_moptext.new})},
{No}, {command(DIR2|{\txf -f -i }|TEMPPATH|{\_moptext.tmp}|
{ -o }|TEMPPATH|{\_moptext.new})});
dispoff({No});
case (@filechk(TEMPPATH|{\_moptext.new}),
{Yes}, {mclear(memono);
mread(TEMPPATH|{\_moptext.new},memono);
%memomax @mlast;
case (memomax>memono,
{Yes},{mopen(memono,0,21,639,399,{w})},
{No},{mopen(memono,0,21,639,459,{w})});
var memono1[1];
memono1:=memono+1;
loop({
case (memono1<=memomax,
{Yes},{mclose(1);mopen(memono1)});
memono1:=memono1+1;
im(memono1<=memomax);
})},
{No}, {SNDMSG({kaknin_f.snd});
select({清書機能には TXF.EXE がパスの通った}|
{ディレクトリに必要です},99999,,
{ 確認 },);
mopen(memono,0,21,639,459,{w});
%memomax @mlast;
var memono1[1];
memono1:=memono+1;
loop({
case (memono1<=memomax,
{Yes},{mclose(1);mopen(memono1)});
memono1:=memono1+1;
im(memono1<=memomax);
})});
setcdir(cdir);
im({Yes});
};
/* アップ文書作成をキャンセルする */
%cancel {
SNDMSG({kaknin_f.snd});
footnote({文書編集を取消しますか?});
select({文書編集を取消しますか?},
99999,{footnote({});im({Yes})},
{ は い }, {AllDelMEMO;
footnote({});
im({No})},
{ いいえ }, {footnote({});im({Yes})});
};
/* 実行 */
UPSET;